home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / com / mcl / tweak-files.lisp < prev   
Encoding:
Text File  |  1994-09-27  |  717 b   |  21 lines  |  [TEXT/CCL2]
  1. ;;; tweak-files.lisp -- tweak mac file creators
  2. ;;;
  3. ;;;
  4.  
  5.  
  6. ;;; When the Unix tar distribution is unpacked on the mac, all the files
  7. ;;; end up with a random creator.  This will tweak the creator on all of the
  8. ;;; files of type :TEXT to either :CCL2 or :YHS2, as appropriate.
  9.  
  10. (dolist (f (directory "Macintosh HD:haskell:**:*"))
  11.   (let ((type  (pathname-type f)))
  12.     (when (eq (ccl:mac-file-type f) :text)
  13.       (cond ((or (equal type "lisp") (equal type "scm"))
  14.              (ccl:set-mac-file-creator f :ccl2))
  15.             ((or (equal type "hs") (equal type "hi") (equal type "hu"))
  16.              (ccl:set-mac-file-creator f :yhs2))
  17.             (t
  18.              (ccl:set-mac-file-creator f :|ttxt|))
  19.             ))))
  20.  
  21.